home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 October / WPCOCT97.iso / DXRS / INXWOCT.DXR / 00033_FILEFLEX STUFF.ls < prev    next >
Encoding:
Text File  |  1997-08-13  |  1.4 KB  |  86 lines
  1. on dbopensession
  2.   global gdbactive1030
  3.   if gdbactive1030 <> "true" then
  4.     set gdbactive1030 to "true"
  5.     return FileFlex("1")
  6.   else
  7.     return "0"
  8.   end if
  9. end
  10.  
  11. on dbuse dbName, pathspec
  12.   DBCheckActive()
  13.   if the paramCount = 1 then
  14.     return FileFlex("3", dbName)
  15.   else
  16.     return FileFlex("3", dbName, pathspec)
  17.   end if
  18. end
  19.  
  20. on DBCheckActive
  21.   global gdbactive1030
  22.   if gdbactive1030 <> "true" then
  23.     set dummy to dbopensession()
  24.   else
  25.   end if
  26. end
  27.  
  28. on DBQuery expr
  29.   DBCheckActive()
  30.   return FileFlex("35", expr)
  31. end
  32.  
  33. on DBCurrRecNum
  34.   DBCheckActive()
  35.   return FileFlex("21")
  36. end
  37.  
  38. on DBCloseSession
  39.   global gdbactive1030
  40.   if gdbactive1030 = "true" then
  41.     set gdbactive1030 to EMPTY
  42.     return FileFlex("2")
  43.   else
  44.     return "0"
  45.   end if
  46. end
  47.  
  48. on DBSkip num
  49.   DBCheckActive()
  50.   return FileFlex("14", string(num))
  51. end
  52.  
  53. on DBGetFieldByName fieldName, decryptFlag, key
  54.   DBCheckActive()
  55.   if the paramCount = 1 then
  56.     return FileFlex("26", fieldName)
  57.   else
  58.     return FileFlex("26", fieldName, decryptFlag, key)
  59.   end if
  60. end
  61.  
  62. on DBGo recnum
  63.   DBCheckActive()
  64.   return FileFlex("10", string(recnum))
  65. end
  66.  
  67. on DBClose dbID
  68.   DBCheckActive()
  69.   return FileFlex("4", string(dbID))
  70. end
  71.  
  72. on DBListFields
  73.   DBCheckActive()
  74.   return FileFlex("29")
  75. end
  76.  
  77. on DBSelect dbID
  78.   DBCheckActive()
  79.   return FileFlex("5", string(dbID))
  80. end
  81.  
  82. on DBCount
  83.   DBCheckActive()
  84.   return FileFlex("19")
  85. end
  86.